home *** CD-ROM | disk | FTP | other *** search
/ Gurewich OLE Controls for Visual Basic 4 / Gurewich OLE Controls for Visual Basic 4.iso / ocxprog / programs / ch20 / name.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-23  |  2.7 KB  |  91 lines
  1. VERSION 4.00
  2. Begin VB.Form frmNameEntry 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Enter Your Name"
  5.    ClientHeight    =   2925
  6.    ClientLeft      =   1335
  7.    ClientTop       =   1785
  8.    ClientWidth     =   4275
  9.    ControlBox      =   0   'False
  10.    Height          =   3330
  11.    Left            =   1275
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2925
  16.    ScaleWidth      =   4275
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1440
  19.    Width           =   4395
  20.    Begin VB.TextBox txtName 
  21.       BeginProperty Font 
  22.          name            =   "MS Sans Serif"
  23.          charset         =   0
  24.          weight          =   400
  25.          size            =   13.5
  26.          underline       =   0   'False
  27.          italic          =   0   'False
  28.          strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   495
  31.       Left            =   240
  32.       TabIndex        =   2
  33.       Top             =   840
  34.       Width           =   3855
  35.    End
  36.    Begin VB.Label lblName 
  37.       Caption         =   "Your Name:"
  38.       BeginProperty Font 
  39.          name            =   "MS Sans Serif"
  40.          charset         =   0
  41.          weight          =   400
  42.          size            =   13.5
  43.          underline       =   0   'False
  44.          italic          =   0   'False
  45.          strikethrough   =   0   'False
  46.       EndProperty
  47.       Height          =   375
  48.       Left            =   240
  49.       TabIndex        =   3
  50.       Top             =   360
  51.       Width           =   1695
  52.    End
  53.    Begin TegoxLib.TegoX TegoX1 
  54.       Cancel          =   -1  'True
  55.       Height          =   1170
  56.       Left            =   2880
  57.       TabIndex        =   1
  58.       Top             =   1560
  59.       Width           =   1185
  60.       _version        =   65536
  61.       _extentx        =   2090
  62.       _extenty        =   2064
  63.       _stockprops     =   1
  64.    End
  65.    Begin TegochkLib.TegoCheck TegoCheck1 
  66.       Default         =   -1  'True
  67.       Height          =   1155
  68.       Left            =   240
  69.       TabIndex        =   0
  70.       Top             =   1560
  71.       Width           =   1410
  72.       _version        =   65536
  73.       _extentx        =   2487
  74.       _extenty        =   2037
  75.       _stockprops     =   1
  76.    End
  77. Attribute VB_Name = "frmNameEntry"
  78. Attribute VB_Creatable = False
  79. Attribute VB_Exposed = False
  80. Private Sub Form_Activate()
  81. txtName.Tag = txtName.TEXT
  82. txtName.SetFocus
  83. End Sub
  84. Private Sub TegoCheck1_Click()
  85. Me.Hide
  86. End Sub
  87. Private Sub TegoX1_Click()
  88. txtName.TEXT = txtName.Tag
  89. Me.Hide
  90. End Sub
  91.